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LIBRTL. NCVT.B52;1 (1) 


00 RTITLE "LIBSSFIND.CVT_PATH for internal use of LIBSCVT_DX_Dx" 
MODULE LIBSSFIND_CvT_PATH ( ' DFA of general gaye type conversion. 
TOENT = '1=006' ' File:LIBFINCVT.B32 Edit: STAN1006 | 
§ } BEGIN 
BR PITITITILILILILL LLL LLL LLL tiiiii titi 
'@ 
0 § is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
al id |g THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 
® 
& 
® 
a 
& 
® 
® 
' * 
ie TRANSFERRED. * 
® 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
® 

ITY FOR THE USE OR RELIABILITY OF ITS * 

® 

® 

® 


!® DIGITAL ASSUMES NO RESPONS sf 


IBIL 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ie 
Vee RRR RARER RARER RARER RARER RATA AAA AERA AAA AAARARERER 
4 
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++ 

FACILITY: General Utility Library 
| 
| 
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' 
i 
ABSTRACT: 
i This module contains LIBSS$FIND_CVT_PATH routine which is called only 
3 : oY LIBSCVT_DX_DX routine. The reason that these two routines are in 
003 : different modules is because of anticipation of future updates to this 
003 : data conversion routines. They are very large, and it is easier to 
Bae } update them seperately. 
B06 ; ENVIRONMENT: User mode - AST reentrant 
0064 AUTHOR: Farokh “orshed 01-09-1981 
‘ 0046 : MODIFIED BY: 
48 0048 1 | 1-001 - Original. M1001 01-09-1981 
49 0049 ! 1-002 - Put in a check for DSCSW_LENGTH to be 1 when class A, or NCA, and 
50 Bees ! if class NCA stride must be 1. FM 9-9- 
51 051 ! 1-003 - Put in a new data type, DSCSK_DTYPE VT. FM 1-DEC-81. 
26 B03¢ ! 1-004 - Put in a feature where DST_INFO Co_CENJ can be picked up for 
3 5 i LIBSCVT_DX_DX. FM 2-DEC-81- 
4 054 ! 1-005 - Fix the bug that in (K_S_N 9. K_SD_NLO] negative inputs are picked 
55 55 ! up aS positive. FM 1-RMar- 
2$ bne$ 1-006 - Remove informational errors. STAN 24-Jul-1984. 
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SSBTTL ‘Declarations’ 


rttotate 
Wwr—oOo 


$ 


a aa mt ah at ws as = — — — 2d ss — 0 — hs ss os ss 2s 1 ss > 2s _s 9 4 2 
- a - - 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LESSEE 


oOo 
WO DONOUE WN" OOOVOu 


oOo 


E 
JSB_R1 = JSB (REGISTER = 0, REGISTER = 1) : PRESERVE (0, 1); 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBS$FIND_CVT_PATH; 


SANS 


Routine to find the conversion 


being done and report an 


y 
unsuxported fields in the descriptors. 


SSssoosoosce 


oo2Qn00 00 -~ 


ooo 
oO 


; INCLUDE FILES: 


hte 


LIBRARY ‘RTLSTARLE'; 
REQUIRE ‘RTLIN:RTLPSECT’; 


system symbols, from SYSSLIBRARY:STARLET.L32 
Define PSECT declarations macros 


Sey tet tw 


DECLARE _PSECTS (LIB); Declare PSECTs for LIBS facility 


OWN STORAGE: 


Ssssssssssssss 
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Label of the LIBSCVT_DX_Dx 
routine's CASE statement wiil 
be taken. 


13 1 ZSBTTL ‘Deterministic Finite Automata for LIBSCVT_DX_Dx' 
1 GLOBAL ROUTINE LIBSSFIND_CVT_PATH ( ! Deterministic Finite Automata 
19 ' that wtti parse the source 
19 ' and destination descriptors. 
19 SOURCE ! Source descriptor that was passed 
19 ' to LIBSCVT_DX_DXx. 
19 » DESTINATION ' Destination descriptor that was 
! ssed to LIBSCVT_DX_Dx. 
» SRC_INFO ! 
' routine will put the source 
8 ! information in. 
» DST_INFO ! Address of a record that this 
0 ! routine will put the destination 
! information in. 
. CVT_PATH This code will determine what 
! 
! 


)=z 
'¢ 


lee 
FUNCTIONAL DESCRIPTION: 


This routine is comprised of a Deterministic Finite Automaton, defined 
as a 5 tuple : 


STATES : There is a state for each CLASS, and CLASS, DATA TYPE 
combination. 

Alphabet : Classes and Data eyes. 

Mappings : MCCLASS_S , DTYPE_B) := CLASS_S_DTYPE_B 
M(CLASS_D , OTYPE_W) := error °° 


Start state 2 . 

Final states : ALL possible combinations of CLASS, DTYPE. 
Some of these combinations are allowed, others 
are not. The error combinations are denoted by 
negative numbers as states. 


MAINTENANCE OF THIS ROUTINE : 


'This routine knows about all classes and data types of Appendix C V8.3. 

'(You may want to update the above Line <0) po a change is made) 

'To make an already existing CLASS, DATA TYPE combination a valid one, as 

‘opposed to an error you must : 

: - Insert the symbol for that data type in DTYPE_‘ABLE in place of the 
error state. 

- Define a FINAL_STATE for this combination. 

. Give it an action routine. 


| 
| 
Address of a record that this 
| 
| 


- Increment X_DATA_TYPES. 
. Set K_MAX_DTYPE-STA fo value of the new data type. 
- Does any of the following need to be changed ? 

a. K_SMLFINSTA 


1 
To add new data ass must : 
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1-006 Deterministic Finite Automata for LiBscv _DX_DX 1 ~Sep-19 4 99:38:50 LIBRTL.SRCJLIBFINCVT.B52;1 (3). 

; 157 69 1! b. K_LRGFINSTA | 
; ie 1} ¢. KL ‘ 
; 159 1! d. K_-BOTTOM_SD : 
; 160 1! 4. Define a few FINAL STATE. : 
; 161 , | 5. Each category in DTYPE_TABLE must have a new entry for the data type. ; 
; 106 4 1! Note that the position (starting at 0) of each entry in each category is equivalent ‘ 
; 16 > 3} to the data type value. ° 
> 6164 $ , 3 6. Add the new lable into the action routines CASE statement and ‘ 
; 165 , 3 the sub-CASE statements in LIBSCVT_DX_DX will need to be modified to : 
: 196 § ! include this new data type. | : 
5 198 60 1 !To add a new class you must : : 
; 18 61 1! 1. Increment K_MAX_CLASSES ; 
: 170 66 1! ¢: Set K_MAX_CCASS"STA to value of the new class. : 
3: 171 65 1! . Increment K_ACTOAL_CLASSES. : 
; \7¢ 64 1! 4. Make a new R_STATEX_CLASS_y, where x is class value and y is the ; 
; W 0265 1! symbol of the class. ° 
3 (174 0 $6 1! 5. Make a new FINAL_STATE. : 
3 WS 0267 1! 6. Add a new category to the STATES structure at the end, with a index : 
: 176 0268 1! value of one higher than the last category. ; 
s. Bre 0269 1! 7. Make a new entry in CLASS TABLE. : 
: 178 0270 1! 8. Make a new category in DTYPE_TABLE. ; 
3 4 8 a : H 9. Make a new lable in the action routine CASE statement. : 
; «(181 8 ig 1! : 
; ise 74 1 ! CALLING SEQUENCE: : 
a | 0275 1! ‘ 
3: «186 0276 1! ret_status.wlc.v = FIND_CVT_PATH ( SOURCE.rx.dx, ; 
; 185 0277 1! DESTINATION. rx.dx, : 
> «186 0278 1! C_INFO.wr.r, ; 
: 187 0279 1! DST_INFO.wr.r, : 
; 4188 ogee es CVT_PATH.wlu.r ) : 
; #189 0281 1! ; 
: 1 bs 8¢ : : FORMAL PARAMETERS: ; 
; 4 02 1! SOURCE Address of source descriptor passed to LIBSCVT_DX_DXx. . 
; 9 OSbe Ss DESTINATION Address of destination Sosce tater passes to LIBSCVT_DX_Dx. : 
3 194 0286 1! SRC_INFO Address of a record in LIBSCVIT_DX_Dx. : 
; 195 0287 1! DST_INFO Address of a record in LIBSCVT _DX_Dx. ; 
3 198 0288 1! CVT_PATH Address of a longword in LIBSCVT_Bx_Dx. ‘ 
; 19 0289 1! : 
; 198 8 90 1 ! IMPLICIT INPUTS: : 
: 199 , BF ° 
; 4 4 1! NONE : 
3 1 935 1! , : 
; 4 94 1! IMPLICIT OUTPUTS: : 
: 20 95 1! : 
: 206 38 1} NONE : 
: 205 7 1: ‘ 
: 44 35 : : COMPLETION STATUS: (or ROUTINE VALUE:) : 
: 208 00 1! K_UNSCLAROU : =1 Unsupported CLASS by routine. $ 
; 209 ,: K_UNSDTYROU : § Unsupported DTYPE by routine. : 
: 210 1! K_UNSDESROU : =3 Unsupported descriptor by routine. : 
s ett ' | K_UNSDESSTA : 4 Unsupported conee *pter by standard. : 
: i 1! K_UNSCLASTA : ~5 Unsupported CLASS by standard. . 
: 21 1! KUNSDTYSTA : 6 Unsupported DTYPE by standard. : 
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; 6 ;} K_INVNBDS : =7 Invalid NBDS because array size is greater 
han WU or dimension is not one. 


t 
K_ SUPPORTED : 1 This descriptor is supported. 
SIDE EFFECTS: 


Caller of LIBSCVT_DX_DX must have LIBSEMULATE as a handler, if the 
source or destination descriptor explicitely ask for G, H, 0 conversions. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
BUILTIN 
CVTTP, 
CVTSP, 
CVTPT, 
CVTPS, 
CMPP; 
te 
MACRO 
i <BLF /MACRO> 
- MACRO 
These MACROs are used for clarity of code, since there is not builtin for them. 


—> 4) 


VFN —O OOBNOUES WN HOOODNOUSE 


WA.AWNIAA AAAI AAA A AANA NAAI 


3 

8 3 
Rie fo 
cf 3 
4 4 CVTGH = 
te me LIBSSCVT_CVTGH_R1 %, 
“$ 3 ; These MACROs define portions of intermediate data buffer. 
48 3 , LONG_1 = 
49 34 0, 0. 32. 0 %, 

50 34 LONG _2 = 


%, 0, 32, 0%, 
= 
8, 0, 32, 0%. 
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1 . ea 
c Finite Automata for LIB X_DX 14- NCVT.B32;1 


= 
Gp Vo te, 9 &, 


0. 0, 16, 0%, 
WORD 2 = 
16, 0%, 


2, 0, 
miseie} = 

4 oO 0, 4, 0 i, 
This MACRO calculates final states given the state and the token. 


FINAL STATE (CLASS, DATA_TYPE) = 
CCASS*K_MAX_DATA_TYPES + DATA_TYPE %, 


'¢ 
} This macro is used for SRC_INFO or DST_INFO scale field. 


M_SCALE = 
0, 0, 8, 1 %, 


1+ 
This macro is used for SRC_INFO or DST_INFO Length field. 


M_LEN = 
‘e 5, 0, 16, 0%, 


Define the start state data structure of the DFA. 


START_STATE = 
VECTOR CK_MAX_CLASSES, BYTE, SIGNED] %; 
'¢ 


: EXTERNAL 


EXTERNAL ROUTINE 
LIB$STOP : NOVALUE, 
CVTGH : JSB_R1 NOVALUE; 


+ 
: These are the translation tables used when translating from or to packed decimal. 


a 
LIBSAB_CVTTP_U, 
LIBSAB_CVT_O_U, 
LIBSAB_CVTTP_O, 
LIBSAB_CVT_U_O, 
LIBSAB_CVTPT_U, 
LIBSAB_CVTPT_O, 
LIBSAB_CVTPT_Z, 
LIBSAB_CVTTP_Z; 
EXTERNAL LITERAL ' Condition value symbols 
LIBS_FATERRLIB; ! Fatal error in Library. 
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} FIELD DECLARATIONS 


FIELD 
DST_INFO_FIELDS = 


D_SCALE = CO, 0, 8, 1], 


D7LEN = C5, 6, 16,°0] 
TES; 


+ 
Define some Literals. 


LITERAL 
iStatus returned by FIND_CVT_PATH. 


K_UNSCLAROU 
K-UNSDTYROU 


nn 
o 
m 
nn 
nm 
-_ 
> 
tuunnnun 
& 
= 
. 


VNBDS = 


+ K_SUPPORTED = 1, 

i Some general values : 

; K_INTMED_DATA LEN TH = 32, 
€ ST =6 

LU = 42 
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Unsupported CLASS by routine. 
Unsupported DATA TYPE by routine. 
Unsupported descriptor by routine. 
Unsupported descriptor by standard. 
Unsupported CLASS by standard. 
yeoupeer tee DTYPE by standard 

Invalid NBDS 

because either array size is larger 
than a WU or it is not a one 
dimensional, orray. ; 
This descriptor is supported, and valid. 


Intermediate data buffer Length 


Largest une tenes Longweed. 

Largest negative longword. . 

Largest CLASS supported by routine 

' Smallest CLASS supeerted Y routine 

.Total number of DATA TYPES in the standard 
‘Total number of classes Sypoerses, 
‘Including the error case 0. 

'Smalles class supported. 

‘Largest class supported. 

‘Max. class number supported by standard. 
‘Max. data type number supper ted by standard 
‘Total classes that are allowed by the STATE 
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CK _STATE4_CLASS_AI : 
CK_STATE9_CLASS_SD] : 

CK_STATE10_CLASS_NCAI 
Ck STATE11_CLASS_VS3 : 


CINRANGE, OUTRANGE) : 
, eester (LIBS_FATERRLIB); 


: 44 K_SD_NRO = FINAL_STATE coscen CL Lass SD, DSCSK_DTYPE_NRO), 
; 44 5 K-SD_NZ = FINAL_STATE so7aek $_50, 4d ty x bree ph?) ), 
> 464 $ K-SD"P = FINAL_STATE (DSC clase. SD, DSCSK 
; 445 K-NCA_BU = FINAL_STATE toscsk CL LASS_NCA, pee x WoFrpe. sae 
3; 44 $ K-NCA_T = FINAL STATE (OseeK cLASS gnc’ x Bre | 
: 46 K-VS_T_= FINAL STATE (DSC bstéx Fy! | 
: 448 340 = KIVS"VT = FINAL. STATE (DSC ree “ELAS is. BSCR. bYyBE. 4, 
3 $29 245 These are the left or right hand side of the conversion index 
; 42¢ ah K_SMLINT = 1, 
: $e 545 K_LRGINT = ¢: 
: 454 46 KSMLFLT = 3, 
; 455 54 K_LRGFLT = 4, 
; 456 208 K_DEC = 5 
: 457 4 K"NBDS = 6, 
; 458 550 K_TOT_CAT = 6; 
: 086 0882 $16 | 
: 461 088 § i Detine two structures. | 
: ret 0554 ‘ et STATE is just a vector of bytes, so we just use a macro to define it 
; 46 555 ! STATES is a structure that we put all the states in other than the verse state, 
> 464 228 ! and of course the final states and the states that never get used such as 
; re Fi ee e4 i. the states that contain non-supported CLASSes will not be in this structure. 
BE BEE srmuen 
: 469 B20) STATES CSTATE, TOKEN) = 
> 470 56¢ K ACTUAL CLASSES#K MAX DATA. TYPES] | 
3: 471 056 (STATES +” (K_MAX_DATA_TYPES® 
; 47 0364 BEGIN 
; K_MIN_CL K_MAX_CL 
474 056 CASE STATE FROM K_MIN_CLASS TO CLASS OF 
a RE - 
3 477 0569 CK_STATE1_CLASS_S) : 
: O08 eat “ 
; 480 b278 CK_STATE2_CLASS_D) : 
3; 481 057 1; 
; 48 0574 
; 48 0575 
3 B278 
3 B32 
3 578 
3 579 
; 0 
3 
; : 5 | 
: 0 
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vn 


TES 
END 
) + TOKEN)<O, %BPUNIT, 1>; 


This is the start state entries. 

For me CLASS in _ maatere there is an entry here. They are : 
»P ‘none a ‘none *$D 

NCA ,VS ,VSA_ ,UBS UBA, 


BIND 
CLASS_TABLE = UPLIT BYTE 
Z( Start state. ALL classes. )% 
(K_UNSCLAROU,DSCS$K_CLASS_S,DSC$K_CLASS_D,K_UNSCLAROU,DSCSK_CLASS_A 
»K-UNSCLAROU,K_UNSCLASTA>K _UNSCLAROU,K UNSCLASTA,DSC$K_CLASS SD 


6 
ep-198e 92:38:50 Et Taatuesme itor nevi -082-1 


»DSC$K_CLASS_NCA,DSCSK_CLASS_VS,K_UNSCCAROU,K_UNSCLAROU,K_UNSCLAROU) : START_STATE; 


+ 


Each state contains entries for each data type supported by the standard. 
Note that for space efficiency The final states are not in the vector. 
Also since each state represents a supported CLASS, if a CLASS is not 
supported ( «| the standard or routine ), then the state has no entry in 
the vector. he index table for the vector will index to the proper place 
in the vector below. 
This table shows graphically what gogerteters are valid. 

DSCSK__DTYPE__x 
BU WU LU B WL QF D GH T NONL NLO NR NRO NZ P VT 

i Ses eS 


DSCSK__CLASS_.S §6eh ex K KKRKRKMNMMNMM MK KM OX 

DSCS$K__CLASS__ x 

DSCSK__CLASS__SD KMERM MMM KR MK MM KM KK XK 
DSCSK__CLASS__VvS x x 
DSCSK__CLASS__A_ x x 

DSCSK__CLASS__NCA x x 


iNote that these data types are hard coded in ( zero based vector, an position 
‘of each data type is determined be the value of the symbol ) so if data type 
; values are ever rearranged this table must be rearranged. 


BIND 

DTYPE_TABLE = UPLIT BYTE 
Z( State zero. Class z. )% 
%( State one. ass s. )% 
(K_UNSDTYROU,K_UNSDTYROU,DSC$K_DTYPE_BU,DSC$K_DTYPE_WU,DSC$K_DTYPE_LU 
-K-UNSDTYROU,DSCSK_DTYPE_B8,DSCSK_DTYPE W,DSCSR_DTYPE_L pscsk DTYPE-Q 
/DSC$K_DTYPE_F ,DSCSK_DTYPE D,K_UNSDTYROU,K_ ST YROU-DSC K_DTYPE_T 
-DSCSK-DTYPE-NU,DSCSR_DTYPE_NL-DSCSK_DTYPE-NLO,DSCSK DTYPE NR, DSCSK_DTYPE_NRO 
-DSCSK-DTYPE-NZ,DSCSK-DTYPE-P,K_UNSDTYROU,R UNSDTYROO,K_UNSDESSTA 
»K_UNSDTYROU;K_UNSDTYROU,DSCSK_BTYPE_G,DSCSR_DTYPE_H.k ONSDTYROU 
,K-UNSDTYROU,K-UNSDTYROU,K_UNSDTYROU;K_UNSDTYROU,K_UNSDT YROU 
»K-UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 


This is the rest of the state table. It is seperate because of space efficiency 
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3 $ Z( State two. Class d. )% 

; rt: xe UN td Ste ened Ft Pe Se oat $4 tt Sed 4 Bo Rae 4 ot ly 

; $ SDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

; 6 i EERE E-uREgUU-E VRE TA uma TA DTYPE_T 

3 60 6 § rete tt mats SSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

; 61 6 UNE DESE TA ramUNt DEST Ta eoUmtc EEE lacnoUNeDn ss ark aUNeDE Sata 

: 86 654 eo “UNSD SSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

; 6 655 * “UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

$ 64 2$ UNSDESSTA,K_UNSDESSTA,K  genenie 

; 565 3 407 State three. Class v. J 

3 3 Z( State four. Class a. )% 

2: 3 65 -K UNSDTYROU,K_UNSDTYROU,DSCSK_DTYPE_BU,K tts ar UNSDESROU 

; 568 Q) -K_UNSDTYROU,K_UNSDESROU,K_UNSDESROU,K_UNSDESRO UNSDESROU 

; 569 661 oK UNSDESROU,K_UNSDESROU,K_UNSDTYR OU :K K-UNSDTYROU, ‘DSCSK Dive. T 

; 570 006 oK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K “4 UNSDESSTA,K_U NSBDESS 

5 371 eBay 2 ae Fs Ma sa FEE  UNSDESSTA,K_ LSD TTROU 

s ofe »K_ UNSDTYROU,K_UNSDTYROU,K_UNSD sieve  UNSDESROU,K = UN SDTYROU 

3 a7 65 -KAUNSDESSTA, : =UNSDTYROU.K= UNSDESST AK. UNSDESSTA,K_UNSDESSTA 

$ 74 6 “UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA 

; 575 0667 4 State tives” pe) 

3 278 0668 %( State six. Class ‘undefined’ )% 

; 57 ve 34 Z( State seven. Class ) 

3; 378 70 Z( State eight. Class. undefined’ )% 

3s 39 eee Z( State nine. Clas ) 

: 580 ors oK UNSDESSTA,K UNSDESSTA.K. ‘eta tag he K_UNSDESSTA,K_UNSDESSTA 

; 581 067 ;K-UNSDESSTA,DSCSK_DTYPE_B-D TYPE“W,DSCS$K_DTYPE_L,DSCSK_DTYPE_Q 

; ong 0674 -DSCSK_DTYPE_F ,DSCSK_DTYPE Dok URS ESSTA K-UNSBESSTA; Dg CK K_DTYP 

; 58 0675 ,DSCSK_DTYPE_NU, DSCSR_DTYPE_NLDSCSK DIVeE SC$K_DTYPE-NR DSTSK _DTYPE_NRO 

; 584 0676 ;DSCSK~DTYPE_NZ,DSCSK-DTYPE-P,k UNSDESs TA g" ON Ng DESst TK,K_U UNSD Ess 

; 585 067 -KAUNSDESSTAKUNSDTYROU.D st $k BTYPE_G, sOSeSR DTYPE_H,K e“onsp 

; 586 0678 oK_UNSDESSTA,K_UNSDESSTA NSOESSTA; K “UNSDESSTA, K ~WWSBESSTA’ 

; 587 0679 K_UNSDESSTA,K =UNSDESSTA, ‘| ~UNSDES STA 

; 588 0680 £("State ten. “Cla 

; 589 0681 »K UNSDTYROU,K _UNSDTYROU, DSCS$K_DTYPE_BU,K_UNSDESROU,K_UNSDESROU 

; 590 068 > K-UNSDTYROU,K—UNSDESROU,K_UNSDESROU,K_UNSDESROU,K_UNSDESROU 

; 591 068 ,K_UNSDESROU,K_ ROU, K-UNSDTYROU,K-UNSDTYROU,DSCSK_DTYPE_T 

3 236 84 eK UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA, _UNSBE 

s 59 0685 reer a eg Fe BLE K_UNSDESSTA,K outed thet a teh TYR 

$ aoe 2086 eK UNSDTYROU,K_UNSDTY ROU.K _UNSDESR OU; K~ UNSDESROU,K_UNSDTYROU 

; 95 068 oK_UNSDESSTA,K_UNSDTYROU,K_UNSDESSTA,K “UNSDESSTA, K “UNSDESSTA 

3 238 0688 °K -UNSDESSTA. . aUNSDESSTA. - “UN SDESSTA 

; 59 0689 £("State e Clas )z 

; 598 90 KL UNSDESSTACK. "ONSDESSTAL K -UNSDESSTA.K  UNSDESSTA,K_UNSDESSTA 

; 599 91 o “UNS ESSTA,K_ “UNSDESSTA, a NSDESSTA,K_ UNSDESSTA,K_UNSDESSTA 

; 600 4 »K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,DSCSK_DTYPE_T 

; 601 +) we cee et iarmounepgsstarhaueng estore -UNSDESSTA.K_UNSDESSTA 

$ O08 94 o% UINSDESSTA,K_UNSDESSTA,K_U NSDESSTA,K_ UNSDESSTA,K_UNSDESSTA 

; 60 95 > K~UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K-UNSDESSTA,K_-UNSDESSTA 

3; 604 38 »K_UNSDESSTA,K_UNSDESSTA,K_UNSDESSTA,K “UNSDESSTA,K_UNSDESSTA 

; 605 9 K-UNSDESSTA K-UNSDESSTA.DSCSK DTYPE_VvT 

; 606 98 £("State twelve. Class vsa. )2% 

:; 60 a State thirteen. Class ubs. )% 

: 608 00 Z( State fourteen. Class uba. )% 

; 609 701 Z( Aud more states below )% 

; 610 7 ) : STATES; 

3; 611 7 

3; 612 7 LOCAL 
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o 


Traverse through the state table twice. Once for source, and once for 


wa 


! destination descriptor. 

Each time come up with a final state that indicates which left hand side 

(for the first traversing), or right hand side (for the second traversing) of 

conversion we have got, i - SALI iF or LRGFLT 
u ° 


BIEAE 


etc . 
and DST_INFO, and they do 


613 705 STATUS, ' Status of this routine 

614 $ STATE, ' State 

615 CLASS, ' Current CLASS being looked at 

$18 DTYPE, ' Current DTYPE being looked at 

61 TOKEN ' The value of each aya type supported 
618 LEFT_€VT_: VOLATILE VECTOR C1 i Left side of conversion index. 

61 RIGHT CVT : VOLATILE VECTOR C13, i Right side of conversion index. 

620 LEFT_OR_RIGHT_CVT : REF VECTOR. ' Left or right side of conversion index. 
621 SRC_OR_BST_INFO : REF BLOCK BYTE], |! Source or destination info. 

& 3 SRC"OR"DST~: REF BLOCK C, BYTE), Source or destination. 

2 ? TEMP_BOF : BLOCK K_INTMED_DATA_LENGTH, BYTE]; ! Temporary buffer for reshuffling things. 
625 MAP 

6 $ SOURCE : REF BLOCK C, BYTE) 

6 DESTINATION : REF BLOCK C, BYTE] 

628 SRC_INFO : REF BLOCK C, Byte] FIELD (SRC_INFO_FIELDS), 

° 9 DST_INFO REF BLOCK C, BYTE] FIELD (DST_INFO_FIELDS); 

? 1 

o38 

6 

6 

6 

6 

6 
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0 
4 
‘ 
: 0 
a 
0724 ! 
0725 ! 
0726 ! 
0727 ! 
0728 ! 
0729 ! The action codes also SRC_INF » 
0730 ! the conversions to the intermediate values. 
39 0731 ! After we have the left hand side of conversion for source and the right hand 
640 0 § ! side of conversion for destination 
641 0 ! descriptor, then stick them in a formula that maps these two into 
o*6 0734 ! one final answer that indicates which general CLASS, DTYPE is bein 
64 0735 ! converted to which general CLASS, DTYPE, e.g. SMLINT_LRGFLT, or DE _SMLFLT, etc. 
644 0736 ! These final answers are the output parameter CVT_PATA that will end up as the 
645 0737 ! index to the CASE statement in LIBSCVT_DX_Dx. 
646 0738 '- 
647 0739 + 
648 0740 ! This loop is from 0 to 3, but we EXITLOOP at 2 because that is the second time 
649 0741 ! through the loop and the end of the road. y 
650 0 ; ! When the state table indicates an error, or we detect an error in an action routine, 
651 0 ! we will just EXITLOOP with the value given by the state table, or of our own choice. 
$36 0744 !' Note that we EXITLOOP when we detect errors in the action routines, e.g. if array 
65 0745 ! size is greater than a WU. 
654 0 § te 
655 0 BEGIN 
638 8 8 4 STATUS = (INCRU TURN FROM 0 TO 3 DO 
65 49 BEGIN 
658 0750 '+ 
659 0751 ! Determine CLASS and DTYPE of this 9° around, also set up LEFT_OR_RIGHT_CVT, 
660 726 ' and SRC_OR_DST, and SRC_OR_DST_INFO. 
$8) Pee } If this-is the third time Ehrough this loop, we are finished. 
£°¢ 755 
664 P38 CASE .TURN FROM 0 TO 2 OF 
665 ree SET 
$69 26 (0) : 
668 760 6 BEGIN 
669 0761 6 CLASS = .SOURCE CDSC$B_CLASS}; 
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; 670 762 6 DTYPE = .SOURCE COSCSB DTYPE]; 

; 671 76 SRC_OR_DST = UR 

; 67¢ 764 SRC“OR-DST_INFO = .SRC_INFO; 

; 67 765 LEFT_OR_RIGHT_CVT = LEFT_CvTt; 

; 674 76 END; 

; 675 76 

3; 67 768 C1) : 

3; of 769 6 BEGIN 

: 67 7 6 CLASS = .DESTINATION posse CL Ass: 

; 67 771 6 DTYPE = .DESTINATION LDSCSB_DTYPE]; 

; 680 772 6 SRC_OR_DST = .DESTINATION; 

; 681 773 «6 SRC-OR“DST_INFO = .DST_INFO; 

; 6 ; 774 LEFT_OR_RIGHT_CVT = RIGHT_CVT; 

; 68 775 END; 

> 684 o776 

; 685 344 C2] : 

; 686 778 #5 EXITLOOP K_SUPPORTED; 

3; 687 1a TES; 

; 688 780 

; 689 9781 1+ 

; 690 8786 ! Filter out the out-of-range CLASS and DTYPE. 

; 691 0785 5 !- 

; 69 0784 : 

; 63? ores 2 IF .CLASS GTRU K_MAX_CLASS_STA THEN EXITLOOP K_UNSCLASTA; 

: 233 14-14 IF .DTYPE GTRU K_MAX_DTYPE_STA THEN EXITLOOP K_UNSDTYSTA; 

; £39 0789 '¢ 

g oe the 5 - Crank up the finite state machine. start looking in the start state. 

3 $30 0735 ; STATE = .CLASS_TABLE C.CLASS); 

: 701 079 '¢ 

s 7 0794 5 ! Action code for each state that results from the start state. 

; 70 0795 2 t= 

3 704 0796 

; 705 0797 5 CASE .STATE FROM K_MSTNEGERR TO K_LRGCLSSUP OF 

; 706 0798 SET 

; 707 0799 

: 708 800 CK_INVNBDS TO K_UNSCLAROU] : 

; 709 801 : EXITLOOP .STATE; ' Exit the INCR with the error 

: ry 43 ' resulted from the start state. 
3 ar} ope 5 Ck =o 0 SSP TO K_LRGCLSSUP) : 

; 716 B04 6 TOKEN = .DTYPE_TABLE C.STATE, -DTYPEI; ! This is a final state, but 
: 715 807 6 ' some constants need to be 

3 ri6 808 6 ' Applied to it yet. : 
3 ats tts ° ! This is just a data type, or a negative number if error. 
3 ahs oBt' ? IF . TOKEN LSS 0 THEN EXITLOOP .TOKEN; ' Exit INCR with the error resulted 
; ist 8 i 6 ' in a final state 

.- FF ¢ 14 STATE = FINAL_STATE (.STATE, . TOKEN); ' Find the final state. 
. fi 15 END; 

: 726 a8 

s 1 CINRANGE, OUTRANGE) : 

: 726 818 LIBSSTOP (LIB$_FATERRLIB); 
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TES; 


This CASE statement contains the action code for each final state other than 
the errc™ states. 

The caller of this routine has set up the pointer and length of SRC_INFO 

to be the intermediate data area (INTMED_DATA), so in the CASE below we 

wes Hs pointer and length if needed (e.g. any NBDS), otherwise we never 
ouc ° 

f .TURN is 0 then we are processing the left side of the conversion, when 
t is 1 we are processing the right side of the conversion. Another words 
if .TURN is 0 we are loo ing at the CLASS, DATA TYPE of source, and if 

it is 1 we are Looking at CLASS, DATA TYPE of destination. 

These action codes determine which category (e.g. K_SMLINT or K_DEC as 
described in LIBSCVT_DX_DX documentation) source or destination data type 
falls into. They also convert the source data type to an intermediate 
Sota type. Bs more detail refer to the functional description of 


seu: ets FROM K_SMLFINSTA TO K_LRGFINSTA OF 


[k_S_BU, K_SD_BU) : 
~LEFT_OR_RIGHT_CVT = K_SMLINT; 
IF TURN EOL 0 


one ree CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 8, 0;, 


END; 

(K_S_ WU, K_SD_Wu) : 
.LEFT_OR_RIGHT_CVT = K_SMLINT; 
IF .TURN EQL 0 


“Sane tee CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 16, 0;, 


END; 

CK_S_LU 4X80 LUI : 
»LEFT_OR_RIGHT_CVT = K_LRGINT; 
[ - TURN EQL 0 


Sac tee CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32, 0;. 


END; 
CK_S_B, K_SD_B) : 
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p1986 12:86:50 EMantusneSciarincvi-ede;1 =P" (SS 
BEGIN 
-LEFT_OR_RIGHT_CVT = K_SMLINT; 
IF .STATE EQL K_SD_B THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST COSCS$B_SCALE); 
if -TURN EQL 0 

eee = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 8, 1 


END; 
CK_S_W, K_SD_W] : 
.LEFT_OR_RIGHT_CVT = X_SMLINT; 
IF .STATE EQL K_SD_W THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALEJ; 
. a EQL 0 
ene = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 16, 1;, 


END; 
(kK_S.L, K_SD_LJ : 
.LEFT_Oh_RIGHT_CVT = K_SMLINT; 
IF .STATE EQL K_SD_L THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B8_SCALE); 
IF .TURN EQL 0 


“SRC ig CS_POINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 32, 1 


END; 
CkK_S_Q, K_SD_Q] : 
-LEFT_OR_RIGHT_CVT = K_LRGINT; 
IF .STATE EQL K_SD_Q THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE]); 
Cot TURN EQL 0 
Cece BE MNNER NOE SRM RE ated 2: 8B 
IF .BLOCK C.SRC_INFO CS_POINTER], 4, 31, 1, 9;, BYTEJ 


0;, BYTE); 


BEG 
ERC INFO CS_POINTER ~~ INFO CS POINTER] XOR ZX" FFFFFFFE® : 
-SRC~INFO CS"POINTER -T.SRC_INFO CS_POINIER] + 4) XOR 2X°FFFFFFFF'; 


IF ..SRC_INFO ee EQLU K_LRGST_LU 
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Deterministic Finite Automata for LIBSCVT_DX_DX 14-Sep-1984 1 LIBRTL.SRCJLIBFINCVT.852;1 (3) 
; 1 3 THEN 
; : 9 § BEGIN 
: 84 935 3 ~SRC_INFO FS_POINTER] = 0; 
3 4 3 $ zSRCLINFO S"POINTER] + 4 = .(.SRC_INFO CS_POINTER] + 4) + 1; 
: 938 ELSE 
; ; 939 .SRC_INFO CS_POINTER] = ..SRC_INFO C[S_POINTER] + 1; 
: 849 941 SRC_INFO CS_SIGN] = 1; 
; 50 94 END; 
: 2) Bez END 
: 8 BMS ape 
: 855 309 2 , 
; 896 948 (K_S_F, K_SD_F] : 
: 85 0949 6 
3 $28 3339 ° -LEFT_OR_RIGHT_CVT = K_SMLFLT; 
3 860 095 6 IF .STATE EQL K_SD_F THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE]; 
; Beg 0954 6 IF .TURN EQL 0 
; 86 0955 6 
: 864 0956 6 .SRC_INFO CS_PGINTER] = .BLOCK C.SOURCE CDSCSA_POINTER], 0. 0, 32, 0:, 
> 865 0957 6 BYTE); 
3 866 0958 
; 867 0959 END; 
> 868 0960 
: 869 0961 5 [K_S_D, K_SD_D) : 
: 870 0962 6 
5 Hal 0965 6 .LEFT_OR_RIGHT_CVT = K_SMLFLT; 
: 878 0965 6 IF .STATE EQL K_SD_D THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE): 
: 875 0967 6 IF .TURN EQL 0 
; 876 0968 6 
: 87 0969 7 BEGIN 
; 878 0970 7 .SRC_INFO [CS POINTER] = .BLOCK C.SOURCE CDSCS$A POINTER], 0, 0, 32. 0;. BYTE]; 
: 879 0971 g (-SRC_INFO CY_POINTER] + 4) = .BLOCK C.SOURCE CDSCSA_POINTER] + 4: 0.0, 32, 0:, BYTE); 
: 881 097 : 
3 $ 0974 5 END; 
; 88 0975 
3 097 3 [k_S.G k_SD_6] : 
; 0978 6 .LEFT_OR_RIGHT_CVT = K_LRGFLT; 
; i 9 6 IF .STATE EQL K_SD.G THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE); 
; 9 3 g IF .TURN EQL 0 THEN CVTGH (.SOURCE CDSCSA_POINTER], .SRC_INFO [S_POINTER)); 
; 9 4 ; END; 
; 9 [k_S_H, K_SD_HJ 
3 6 BEGIN 
; 9 4 4 -LEFT_OR_RIGHT_CVT = K_LRGFLT; 
3 0989 6 
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; 333 990 IF .STATE EQL K_SD_H THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE); 
; 201 338 IF .TURN EQL 0 THEN CHSMOVE (16, .SOURCE CDSCSA_POINTER], .SRC_INFO CS_POINTER]); 
90 994 END; 
aos 333 Neocon 
3 33) : ay oy scent CVT = K_NBDS 
. 7 4 
sid 0999 SRC_OR_DST_INFO CM_LEN] = SRC_OR_DST COSC$W_LENGTH]; 
oie 00¢ IF .STATE EQL K_SD_T THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE]; 
9 00 IF . TURN EQL 0 
9 004 THEN 
o 005 BEGIN 
9 B06 SRC_INFO CS_POINTER] = .SOURCE CDSCSA_POINTER]; 
9 00 END; 
00 
00 END; 
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CK_S_NU y-SD_NUJ : 
.LEFT_OR_RIGHT_CVT = K_DEC; 
IF .STATE EQL K_SD_NU THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CPSC$B_SCALE); 
IF .TURN EQL 0 


THEN 
GIN 
SRC_INFO CS_LEN) = 31; 
CVTTP (SOURCE COSC$W_LENGTH], .SOURCE CDSCSA_POINTER], LIBSAB_CVTTP_U, 
~e SRC_INFO CS_LENJ, .SRC_INFO CS_POINTERJ); 
END; 


CK_S_NL» KASD_NLJ : 
.LEFT_OR_RIGHT_CVT = K_DEC; 


iw Ww MIMNIMNNIND 2 2 OO OO 
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939 IF .STATE EQL K_SD_NL THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE);: 
941 IF .TURN EQL 0 

4g THEN 

94 5 BEGIN 

944 SRC_INFO CS_LEN) = 31; 

945 f CVTSP (ZREF™( 

309 39 If SOURCE CosC$w LENGTH] EQL 0 THEN_O ELSE .SOURCE CDSCS$W LENGTH] -1), 
348 940 SOURCE CDSCSA_POINTER), SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER)); 

950 as END; 

931 

93¢ 4 END; 

95 045 

154 6 [K_S_NLO, K_SD_NLO) : 
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BEGIN 
«LEFT_OR_RIGHT_CVT = K_DEC; 
IF .STATE EGL K_SD_NLO THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALEJ; 
IF . TURN EQL 0 
THEN 

BEGIN 

BIND FIRST_BYTE = SOURCE CDSCSA_POINTER] : REF VECTOR C,BYTE); 


SRC_INFO CS_LEN 
EHSTAANSLATEY ( 


L 
curt {Souce et 
E 
YTE 
C 


SIS 
OONOW 
= 

—~ 


oO 
uw 


pvt 0.u tei , SOURCE CDSCS$W_LENGTH], .SOURCE CDSCSA_POINTER], 0, 
LEN NGTHI, TERE Ubub LIBSAB_CVTTP_U, SRC_INFO CS_LENJ, 


SESSSTERES 


SESSSSS SSS 
PUPVAPPISISISIIIIT E & 
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IF (. JERSE Br BYT 


THEN 
ae” . i 


+ hey ree AND .FIRST_BYTE CO] LEQU %x"52") OR 


NTER] + S ds 0. 0, ~ 0; 
re Fest Be eytés, 


UEWN OO CONOU SUT 0000 
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KC BS ab Cutt? P_O + .F 
END; 
END; 
CK_S_NR, K_SD_NR] : 
.LEFT_OR_RIGHT_CVT = K_DEC; 
IF .STATE EQL K_SD_NR THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE); 
ae EQL 0 
BEGIN 


LOCAL 
SOU_LEN; 


SOU_LEN = 
BEGIN 


IF .SOURCE COSCSW_LENGTH] EQL 0 THEN O ELSE .SOURCE CDSCS$W_LENGTH] - 1 


SNNNOO 
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TEMP, BUF (fe su , 0] = .BLOCK C.SOURCE CDSCSA POINTER] . .SOU_LEN, 0, 0. 8, 0;. BYTE): 
CHSMO CEN SOURCE COSCSA_POINTER], TEMP_BUF + 1); 
SRC INFO (36u LEN 


CvISP TSP (SOU_CIN. aa ‘aur, SRC_INFO CS_LEN], .SRC_INFO ‘pei 


Mew 


3S 


3333 


END; 
CK_S_NRO, K_SD_NRO] : 
~LEFT_OR_RIGHT_CVT = K_DEC; 
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; 101 11 

: i 1§ 1 5 IF .STATE EQL K_SD_NRO THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST [DSC$B_SCALE); 
: 15 1 IF «TURN EQL 0 

> i$ 1 § § BEGIN 

: 1 18 1110 7 RC_INFO CS_LEN) = 31; 

: 101 1111 7 cvITe ($0 ouRtE COSCSW_LENGTH], .SOURCE CDSCSA_POINTER], LIBSAB_CVTTP_O, 
> 1020 1118 7 SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER]): 

: 1021 1113 6 END; 

We 0: 

> 1026 1116 ’ 

> 1025 111 [K_S_NZ, K_SD_NZ] : 

; 10 6 1118 4 BEGIN 

: 19 f 1119 ‘ .LEFT_OR_RIGHT_CVT = K_DEC; 

; 10 9 1 1 ‘ IF .STATE EQL K_SD_NZ THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST [DSC$B_SCALE); 
We HE Emens 

Be OH Sl cs nen = 

> 1035 1127 7 sac (SOURCE toscsu_ LENGTH], .SOURCE CDSC$A_POINTER], LIBSAB_CVTTP_Z, 
: 1036 1128 7 SRC_INFO CS_LENJ, .SRC_INFO CS_POINTER]): 

> 103 11¢9 6 ; 

. o0: 

> 1040 1138 ‘ 

> 1061 1133 5 (K_S_P, K_SD_P) : 

5 106 11 6 N™ 

> 104 1135 6 .LEFT_OR_RIGHT_CVT = K_DEC; 

> 1044 1136 6 

: 1045 1137 6 IF .STATE EQL K_SD_P THEN SRC_OR_DST_INFO CM_SCALE] = .SRC_OR_DST CDSC$B_SCALE); 
‘ee ORY 1, TURN EOL 0 

+ 1049 1141 BEGIN 

: 1980 1148 7 CVTPS (SOURCE COSC$W_LENGTH] SOUR cE CDSC$A_POINTER], %REF (31), TEMP_BUF); 
> 1051 1143 7 CVTSP CREE (31), TEP. BUF, REF (31), .SRC_INFO CS_POINTER]); 

: 105¢ 1144 7 SRC_INFO CS_LEN] = 

> 105 1145 6 END? 

: 1054 1146 

; 1055 114 END; 

: 1987 1149 [k_0.1] : 

: 1058 1150 6 BEGIN 

+ 1059 1151 6 .LEFT_OR_RIGHT_CVT = K_NBDS; 

: 1060 113¢ 6 SRC_OR_DST_INFO CM_LENJ = Psi RC_OR_DST CDSC$W_LENGTH); 

: 106¢ 1154 6 IF .TURN EQL 0 

: 1dez 1186 § THEN GIN 

: 1065 1137 f SRC_INFO CS_POINTER] = .SOURCE CDSCSA_POINTER); 

: 1967 1189 : : 

+ 1068 1160 END; 
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1970 CK_A BU, K_A_T, K_NCA_BU, K_NCA_T] : 
13t6 -LEFT_OR_RIGHT_CVT = K_NBDS; 
074 IF (.SRC_OR_DST CDSCSL_ARSIZE] GTR K_LRGST_WU OR .SRC_OR_DST CDSCS$B_DIMCT] NEQ 1 OR 
te wy’ SRELOR=DST DSCSWILENGTH] NEQ 1) 
O77 EXITLOOP K_INVNBDS; 
079 : (Stare EQL K_NCA_BU OR .STATE EQL K_NCA_T) 
8 1 BEGIN 
O83 IF .SRC_OR_DST CDSC$L_S1] NEQ 1 THEN EXITLOOP K_INVNBDS; 
END; 


SRC_OR_DST_INFO [M_SCALE] = -SRCOOR DST {DSCSB, SCALE; 
SRC_OR-DST-INFO CM“LEN] = .SRC_OR_DST COSCSL_ARSIZEJ; 


IF .TURN EQL 0 
THEN 


BEGIN 
SRC_INFO [S_POINTER] = .SOURCE CDSCSA_POINTER); 


SSZEZSSSSESSF 


END; 

(K_VS_T, K.VS_VT) : 
.LEFT_OR_RIGHT_CVT = K_NBDS; 
IF TURN EQL 0 


on 
OOOO 0 000 O00 00000909 09 09 0909 SI NI NINN NIA AAAAAAAO 


COOOCoCOCoSo 


BEGIN 
SRC_INFO CS_POINTER] = .SOURCE CDSCSA_POINTER] + §' 
a S-LEN] = .BLOCK C.SOURCE CDSCSA_POINTER], 0, 0, 16, 0;, BYTE); 


ELSE 
DST_INFO CD_LEN] = .DESTINATION CDSC$W_LENGTH); 


CINRANGE) : 
TES LIBSSTOP (LIBS_FATERRLIB); 


END 
) ' End of INCRU, with a EXITLOOP value. 
1, END: i End of STATUS. 


i “~ the left and right of the conversion, (i.e. if the conversion is 
' K_SMLINT_LRGFLT, then LEFT_CVT is SMLINT and RIGHT_CVT is LRGFLT) 


into a final conversion index and return with the Status of this routine. 
.CVT_PATH = (.LEFT_CVT = 1)*K_TOT_CAT + .RIGHT_CVT; 
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60 60 Dg 00519 MCOML (RO), (RO) + 0929 
61 61 D O95 1¢ MCOML (R1). (R1) : 0930 
FRFFFFFF 8F 60 D1 OOS1F CMPL (RO), #1 3; 0932 
06 12 005 6 BNEG 40$ : 
60 D4 00528 CLRL —- (RO) : 0935 
61 06 00 A INCL  (R1) : 99 
: C BRB 41$ : 09 
6 6 0 F 40$: INCL (RO) : 093 
07 ~A3 gi 0530 41$:  BISB2 #1, 7(R3) : 0941 
¢ 11 09 aes: BRB 368 : 0839 
08 BE DO 00536 43$: MOVL #3, @LEFT QR_RIGHT_CVT : 0950 
00000160 8F 6 D1 09 A CMPL STATE, #35 : 0952 
04 12 00541 BNEQ 45$ : 
68 08 Am 9 0943 44$:  MOVB 8(SRC_OR_DST), (SRC_OR_DST_INFO) : 
OC AE D 47 45$: = TSTL TURN > 0954 
= 9 4A BNEQ 55$ : 
51 Oc aC D 4C MOVL  SRC_INFO, R1 > 0956 
50 04 AC D 6 20 MOVL SOURCE, RO : 
01 81 4 BO DO 00554 MOVL @4(RO). a1(R1) ; 
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LIBSSFIND_CVT_P LIBSSFIND_CVT_PATH for internal use of LIBSCVT 16-Sep-1984 00:54:1 AX-11 Bliss-32 V4.0-74 Page 34 
1-006 Deterministic Finite Automata for Cfescut bx OX 122868- 1382 99338:50 YO TeRTL SROSLIBEINGVT 89251 . 3 

OC AE DS 00634 64$:  TSTL TURN ; 

73 12 00637 ote BNEG r$ : 

50 0c AC 00 00639 MOVL § SRC_INFO, RO : 

05 Ad 1F BO 00630 MOVW #31- 5(RO) : 

51 06 ac D 4 MOV. SOURCE, R1 : 

1 8 4 TSTW = (R11) : 

6 7 4 BNEQ 66$ : 

: D4 00649 CLAL Re : 

05 11 00648 BRB 67$ : 

52 9] 35 peed 66$: poyeut. ee R2 3 

01 B80 05 Ad 04 21 25 09 0880 67s: CVTSP Re a4(R1), 5(RO), a1(RO) : 

6A 11 0065A 68$: BRB 75§ : 

08 BE 09 DO 0065¢ 69$: MOVL #5, @LEFT QR_RIGHT_CVT : 

00000167 = BF 6 D1 0066 CMPL STATE, #35 : 

04 42 00667 BNEQ 70$ : 

68 08 Ag 9 00669 MOVB $8(SRC_OR_DST), (SRC_OR_DST_INFO) : 

OC AE DS 66D 70$: TSTL TURN : 

6A 12 00670 71$:  BNEQ 78$ : 

SA 04 AC DO 00672 MOVL SOURCE, R10 ; 

59 OC AC 00 00676 MOVL SRC_INFO, R9 : 

05 Ag 1F BO 0067A MOVW 31> 5(R9) : 

000000006 00 00 04 BA 04 BC 2€ 0067E MOVTC  @SOURCE, a4(R10), #0, LIBSAB_CVT_O_U, - : 

10 AE 04 BC 00689 @SOURCE, TEMP_BUF : 

05 a9 000000006 00 10 AE 04 BC 26 0068D CVTTP @SOURCE, TEMP BUF, LIBSAB_CVTTP_U, 5(R9). - ; 

01 +89 00699 a1(R9) : 

51 04 BA 9A 0069B MOVZBL @4(R10), R1 : 

4A BF 1 91 0069F MPB ORI, #74 ; 

06 1F 006A3 BLSSU 72$ ; 

52 BF 51 91 006A5 CMPB RI, #82 ; 

06 1B 006A9 BLEQU 74$ : 

7D «BF 51 91 OO6AB 728: CMPBeaR1, #125 : 

70 12 OO6AF 73S: NEQ g3$ : 

50 05 A9 3C 006B1 74$:  MOVZWL 5(R9), RO ; 

50 02 C6 00685 IvL2. #2, RO : 

0000000060041 9F 00688 PUSHAB LIBSAB_CVTTP_OCR1) : 

01 8940 04 00 9E FO 006BF INSV a@(SP)+> #0, #4, a1(R9)CROI 3 

7% 11 9066 75$: BRB 84$ : 

08 BE 05 00 006C8 76$:  MOVL #5, @LEST_OR_RIGHT_CVT : 

00000168 8F 56 D1 d6ce CMPL STATE, #360 F 

04 12 006d BNEQ 77$ ; 

68 08 A8& 90 00605 MOVB § 8(SRC_OR_DST), (SRC_OR_DST_INFO) F 

OC AE D5 00609 778 TSTL TURN ; 

7% 1 d6n¢ 78$ BNEQ 87$ ; 

50 06 ac D 60 MOVL SOURCE, RO : 

60 B5 006E TSTw (RO) : 

4 12 006E4 BNEQ 79$ : 

A D4 O6E6 CLRL $OU_LEN ; 

0S 11 006E BRB 0$ ; 

SA 60 3¢ 6EA 79$:  MOVZWL (RO), SOU_LEN : 

A p 6ED DECL SOU CEN ; 

10 AE 04 BOSA 0 EF 80S: VB_  a4(RO)CSOU_LEN], TEMP_BUF ; 

11. AE 04 B80 5A 28 006FS MOVC3  SOU_LEN, a&(RO), TEMP~BUF+1 : 

0 0c AC D 0 FB MOVL SRCTINFO, RO ; 

05 Ad 1F : off MOVW #317 5(RO) ; 

01 +B0 05 ad 10 AE SA 0703 CVTSP SOU_LEN, TEMP_BUF, 5(RO), @1(RO) ; 

60 11 00708 BRB 8$ : 
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C_OR_DST), (SRC_OR_DST_INFO) 


QLEFT OR_RIGHT CVT 
E, #36 


RC_OR_DST), (SRC_OR_DST_INFO) 


BLE ,OR-RIGHT_CVT 


oy -OR_DST), (SRC_OR_DST_INFO) 


as TY #31, TEMP_BUF 


R4 
> TEMP yeu #31, a1(R4) 
Ate 5(R4 


@LEFT OR_RIGHT_C 
R_DST 


T 
DST), S5(SRT_ OR -DST_INFO) 


EFT_OR_RIGHT 
SRC_OR_DST), #05535 


SRC_OR_DST), #1 
RC_OR_DST), #1 
TATE, #382 

STATE, #394 
(SRC_OR_DST), #1 
STATUS 


C_OR_DST), (S$ 
RC_OR_DSTS, 5 


(SRC 
7$~ 


#6, aL 
SRC_O 
# aL 
13% 
95$ 
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95$ 
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§ SRC_OR_DST_INFO) 
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LIBSSFIND_CVT_P LIBSSFIND_CVT_PATH for internal use of LIBS$CVT 16-se Sep-1984 9 AX-11 Bliss-32 V Page 4 
1-006 DeterminiStic Finite Automata for LIBSCVT_DX_DXx 1 sets Pi 93: 33 36 LIBRTL.SRC (ier IN V7. B92; 1 ° 3 
45 1 O7ED BNEQ 103$ 3 
2} 0c AC D 143 MOVL SRC_INFO, R1 : 1185 
0 04 AC D iF MOVL SOURCE, RO : 
01 Al 4 AO 00 hi MOVL 4480). 1(R1) : 
36 «611 OO7FC 98$: BRB 103 3; 0839 
08 BE 06 OD 7FE 99$: MOVL #6, @LEFT_OR_RIGHT_CVT : 1192 
0c AE D 80 TSTL TURN + 1194 
15 1 BNEQ 101$ : 
29 0c AC DO 00807 MOVL SRC_INFO, RO : 1197 
1 04 AC DO 00808 MOVL_ SOURCE, R1 : 
01 a0 04 Al 02 C1 OO80F ADDL3 #2, 4(R1), 1(RO) : 
05 ad 04 =««2BI #9 S32 MOVW a4(R1), 5(RO) : 1198, 
18 11 OOB1A 10083 BRB 103$ : 1194 
50 10 AC 00 0081C 101$: MOVL DST_INFO, RO : 71201 
05 Ao 08 BC BO 0820 MOVW aD§STINATION, 5 (RO) ; 
0D 11 00 BRB 103$ 3; 0839 
00000000G 8F DD 00827 102$ PUSHL #LIBS_FATERRLIB : 1206 
000000006 00 01 FB BR ag CALLS #1, L 3 
OC AE D6 00834 103$: INCL TURN > 0748 
03 OC AE D1 00837 CMPL TURN, #3 : 
03 1A 00838 BGTRU 104$ : 
F7C8 31 00830 W 1$ 3 
50 01 43 00840 104$ MNEG #1, STATU 3 
51 34 AE 06 C5 00843 105$ MULL #6, LEFT_CVT, R1 3: 1217 
51 30 AE CO 00848 ADDL2 RIGHT_CV : 
14 BC FA Al 9E 0084C MOVAB -6(R1), aCVT_PATH r 
04 00851 : 1219 
; Routine Size: 2130 bytes, Routine Base: _LIBSCODE + O0F3 
3: 1128 1220 1 
: 1129 1221 1 END ! End of module LIBS$FIND_CVT_PATH. 
: 1130 1222 1 
3 1131 1225 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
3; _LIBSCODE 2373 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) | 
$ Library Statistics 
“ae eeneeea ee as Pe eee a a ee Symbols ecececee Pages Processing 
3 File Total Loaded Percent Mapped Time | 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 35 0 581 00:00.8 


4! 


FIND_CVT_P EIBSSF IND Cy 


Determ 


SE SSR/EMECE OTT TELS EET LAL. PT SRE EE SPOT AALELL LOM. SDL 10? SNCUT PER ISOR ISL LOY INCE MSRC$:LIBF INCVT/UPDATE=(ENH$:LIBFINCVT 


“Finite automate for Liescvi-DX DX Essfoctgue 90:46:18 YMG} 84ST 


COMMAND QUALIFIERS 


Size: 2130 3 + 243 data bytes 


Elapsed. Time: 01:37 
Lines/CPU Min: 0 
Seem A Me 25740 
panety Used: 433 pages 
Compilation Complete 
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